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EDTSFCRLF = put a crif in the format buffer 16-Sep-1984 20:06 VAX-11 Bliss-32 V4.0-74 Page 1 
1o-808- 1382 99:39:08 SIEKSVMGMASTERSCEDT SRCSFCRLF .BLI:1 . (1) 
FCRLF = put a crif in the format buffer’ 
CRLF ¢ ' Put a crif in the format buffer 


1 ZRTITLE ‘EDTS 
MODULE EDTSF 
! File: FCRLF.BLI Edit: JBS1006 


1 BEGIN 


lqeeereerterekereeeeeeeeeeeneeteeeeetererereeteeeerereeKeeeeeeneeeereeeeeenee 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
t* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!t OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. . 
® 
® 
® 
® 
cs 
® 
sd 
® 
® 


— = ‘'v04=-000' 


oO 
Uw 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;: onmpokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. 
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; FACILITY: EDT == The DEC Standard Editor 
3 ABSTRACT: | 
$$ ; Put a crif in the format buffer. 

HS $ ENVIRONMENT: Runs at any access mode - AST reentrant 

40 040 AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 

‘ Que MODIFIED BY: 

44 Bee i 1-001 = Original. bus 19-FEB-1981. This module was created by 

45 5 ! extract ing routine EDTSSFMT_CRLF 1oge module FORMAT. 

4 b066 ! 1-002 - Reguiarize headers. JBS 05-Mar-1981 

4 04 !' 1-005 - Use the new formattin Lape $8 control display at the bottom 

48 048 : of the screen. JBS 05-Jul-1982 

49 049 ! 1-004 = Stop the working message before eriat ing the Line. 185 07-Jul-1982 

50 050 ! 1-005 = Maintain the cursor position variables. JBS 05-Oct-1982. : 

3 0039 : 1-006 - Be a Little moe honest when maintaining the cursor position variables. JBS 29-Oct-1982 

5 05 
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CRLF = put a crif in the format buffer 
ions 


RSBTTL ‘Declarations’ 


TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 
FORWARD ROUTINE 


EDTSSFMT_CRLF; 


; INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 


MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 


NONE 
EXTERNAL REFERENCES: 
In the routine 


i°speSecreeui:1 2% 5 
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1042000 EDTSSFMT_CRLF - put a crif §n the format buffe 1 ~3ep-19 4 99:39:58 DLEKSVMGMASTERSCEDT SRCSFCRLF .BLI:1 ° (3). 

: Hey $88 ! ZSBITL ‘EDTSSFMT_CRLF = put a crif in the format buffer’ : 
; 4 re i GLOBAL ROUTINE EDTSSFMT_CRLF ' Put a crilf in the format buffer : 
a 662 1 : 
a 665 1 !4+ ; 
: Be eC) : FUNCTIONAL DESCRIPTION: : 
: 96 Bee8 1 Terminate the current output Line. If we are in line mode, we can : 
; 97 0667 1! just call EDTSSOUT_FMTBUF. Otherwise there are two cases: normal ; 
; «98 0668 1! and displaying text at the bottom of the screen. If things are : 
; 99 0669 1! normal put a CR and LF into the format buffer. Otherwise (we are in EXT) ; 
; 100 0670 1! just call EDTSSOUT_FMTBUF for the first Line, but preceed subsequent Lines ; 
: 101 0671 1! with CRLF. If there is more than one Line flag that we need ; 
3 ee 0672 1! ‘press return to continue’ and a screen refresh when the operation ; 
: te ber? : is complete. : 
; 195 0675 FORMAL PARAMETERS: 
: 107 0677 1: NONE : 
; 108 0678 1! 3 
: 1%) +44 ! IMPLICIT INPUTS: : 
: 111 0681 1 | EDTSS$A_FMT_WRRUT ; 
3 Ve 0682 1! EDTS$$G_FMT_BOT 3 
: 11 0683 1! EDTS$G_FMT-LCNT ; 
> 114 0684 1! EDTSSA~FMT~CUR 
: 132 3083 : EDT$$G_SCR_LNS : 
: 1 0687 1 { IMPLICIT OUTPUTS: : 
: 119 0689 1 | EDT$$G_FMT_LNPOS | ; 
: 120 0690 1! EDTS$G_FMT_LCNT F 
; \$] 0691 1! EDTSS$G_MSGFLG | : 
BRET) BIRR EAT ong | ii 
; 12% 0694 1! EDT$$G~PRV-LN ; 
: 1$? Be? : EDT$$G_PRV_COL : 
; 127 0697 : ROUTINE VALUE: | 3 
F 129 0699 ; Same as EDTSSOUT_FMTBUF, or 1. ; 
; 131 oF 1 SIDE EFFECTS: ; 
; 135 7 5 1: NONE ; 
3; ¥ 7 1! 3 
; is 705 1 !-- é 
» ¥ 7 1 $ 
; : 5 ? i BEGIN : 
; 139 709 EXTERNAL ROUTINE : 
3; 140 710 OUT _FMTBUF, ' Output the format buffer to the screen 3 
: 161 711 SSSTORE_FMTCH : NOVALUE, ' Store a character into the format buffer 3 
: 166 at S$TI_WRSTR, : ptr ing ouput routine : 
; re i $S$STOP_WKINGMSG : NOVALUE; ! Stop the ‘working’ message : 
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EXTERNA 
EDT SSG EMT LNPOS, ! The current column number 
EDTSSA_FMT_ “URRUT, ; Rout ne to ca ‘. o write the buffer 
EDTS$G_FMT_BOT } t = we are hg ting at the bottom of the screen 
EDTSSG_FMT-LCNT, i Num aber of lL nes nted A gure bottom of the screen 
EDTSST_FMT_BUF : VECTOR CEDTSSK_FMT_BUFLEN BYTE] ormat buffer 
EDTSSA_FMT_CUR, furrent tesotten in the format buffer 
EDTS$G_MSGFLG i 7 = erase the message line on the next keystroke 
EDTS$G_TXT_ ONSCR, ! Text on screen: use ‘Press return to continue’ 
EDT$$G_PRV_COL, i Cursor column 
EDTS$$G_PRV_LN i Cursor Line 
EDTS$$G_SCR “tng; ! Number of Lines in the scrolling area 
| 
LOCAL 
STATUS; 


EDTSS$STOP_WKINGMSG (); 
IFC EDTSSA_FMT_WRRUT NEQA EDTS$TI_WRSTR) 
BEGIN 


i Since we are effectively Stuns *ne » a CR and LF, the column is set to 
tl zero and the Line increases by one, but not below the bottom of the screen. 


EDT$$G_PRV_COL = 0; 
IF (.EDT$$G_PRV_LN LSS .EDTS$G_SCR_LNS) ! 

EDT$$G_PRV_LN = MIN (.EDT$$G_SCR_LNS - 1, .EDT$$G_PRV_LN + 1) 
ELSE oTSS6_PRV_LN = = .EDTS$G_PRV_LN + 1; 


STATUS = EDTSSOUT_FMTBUF (); 
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5 ELSE 
: BEGIN 
5 IF .EDTS$$G_FMT_BOT 
: THEN BEGIN 
86 5 
87 5 IF (.EDTS$SG_FMT_LCNT EQL 0) 
88 5 THEN 
89 5 BEGIN 
90 6 '¢ 
91 6 i This is the first Line printed in the message area at the bottom 
4 6¢ ' of the screen. 
q 76 ie 
94 764 STATUS = EDTSSOUT_FMTIBUF (); 
95 765 EDTS$G_FMT_LCNT ="1; 
196 76 EDTS$$G_MSGFLG = 1; 
197 76 END 
198 768 ELSE 
he 138 BEGIN 
‘¢ 
$01 771 ! This is the second Line to go into the message area. Preceed the text with a CRLF, 
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! and adjust the column and Line counters, assumin 
positioning sequences or control characters int 
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EDTS$G_FMT_LNPOS = 0; 
END; 
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RETURN (.STATUS); 
END; 


19:83:08 


IF_(.EDTS$G_PRV_LN LSS .EDT$$G_SCR_LNS) ! 
EDTS$G_PRV_LN = MIN (.EDT$$G_SCR_LNS - 1, .EDT$$G_PRV_LN + 1) 
EDTS$$G_PRV_LN = .EDTS$G_PRV_LN + 1; 
DTSSA_FMT_CUR -_EDTS$$T_FMT BUF; 


is not being placed at the bottom of the buffer. 
EDTS$G_PRV_COL = 0; 

IF (.EDT$S$G_PRV_LN LSS .EDTS$G_SCR_LNS) 
EDTS$G_PRV_LN = MIN (.EDTSS$G_SCR_LNS - 1, .EDI$SG_PRV_LN + 1) 
EDTSS$G_PRV_LN = .EDTS$G_PRV_LN + 1; 
SSTORE_FMTCH ( 


of routine EDTSSFMT_CRLF 


- TITLE 
- IDENT 
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2 that there are no cursor 
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Routine Base: 


!<BLF /PAGE> 


282 bytes, 


; Routine Size: 


:R Time: 273. 
3 le. Time: 00:18.4 
3 Lines/CPU Min: 1 

3; Lexemes/CPU-Min: 

3 Used: 94 pages 
; Compilation Complete 


} 
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704-000 EDTSSFMT T cau - put a erlf 1 n the lornet buffe 14- ett 99: $8: 68 DISKSVMSMASTER: CECT. SRC FCRLF .BLI;1 (4) 
> 249 0818 1 END ! of module EDTSFCRLF ; 
: 336 SRi9 : | : 
: 251 0820 0 ELUDOM é 
| ; 
| ” 
Pet 
; PSECT SUMMARY | 
: Name Bytes Attributes | ; 
: EDTSCODE 282 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | : 
Beal! 
3 
; Library Statistics : 
See ee SS Sa Pee ee oe ee Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time . 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 3 0 40 00:00.2 | : 
3; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | , 
“ | : 
| ; 
: COMMAND QUALIFIERS | ; 
; BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:FCRLF/OBJ=OBJ$:FCRLF MSRC$:FCRLF.BLI/UPDATE=(ENHS$:F CRLF) : 
; Btees 282 code + 0 data bytes F 


0133 AH-BT13A | | T CORPORATION 
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